Edinburgh’s road network

Edinburgh’s implementation zones

Time series analysis

Mapping accidents with roads: 2013

##                    LAYER Accident_Index
## 1 20mph existing streets             43
## 2    20mph local streets             76
## 3     20mph main streets            173
## 4                  30mph             84
## 5                  40mph             52
## 6        50, 60 or 70mph              1
## 7        Part time 20mph              1
## 8            Trunk roads              1
##   Speed_limit Accident_Index
## 1          20             22
## 2          30            367
## 3          40             42

Mapping accidents with roads: 2014

##                    LAYER Accident_Index
## 1 20mph existing streets            152
## 2    20mph local streets            148
## 3     20mph main streets            349
## 4                  30mph            243
## 5                  40mph             64
## 6        50, 60 or 70mph             22
## 7        Part time 20mph              7
## 8            Trunk roads              4
##   Speed_limit Accident_Index
## 1          20             35
## 2          30            888
## 3          40             66

Mapping accidents with roads: 2015

##                    LAYER Accident_Index
## 1 20mph existing streets            116
## 2    20mph local streets            171
## 3     20mph main streets            298
## 4                  30mph            260
## 5                  40mph             86
## 6        50, 60 or 70mph             15
## 7        Part time 20mph              5
## 8            Trunk roads              7
##   Speed_limit Accident_Index
## 1          20             34
## 2          30            833
## 3          40             91

Mapping accidents with roads: 2016

##                    LAYER Accident_Index
## 1 20mph existing streets             40
## 2    20mph local streets             39
## 3     20mph main streets             19
## 4                  30mph             19
## 5                  40mph             12
##   Speed_limit Accident_Index
## 1          20              5
## 2          30            113
## 3          40             11

Mapping accidents with roads: 2018

##                    LAYER Accident_Index
## 1 20mph existing streets             67
## 2    20mph local streets             90
## 3     20mph main streets            179
## 4                  30mph            155
## 5                  40mph             70
## 6        50, 60 or 70mph              7
## 7        Part time 20mph             12
## 8            Trunk roads              3
##   Speed_limit Accident_Index
## 1          20            284
## 2          30            221
## 3          40             78

Mapping accidents with roads: 2019

##                    LAYER Accident_Index
## 1 20mph existing streets             31
## 2    20mph local streets             50
## 3     20mph main streets             81
## 4                  30mph             68
## 5                  40mph             19
## 6        50, 60 or 70mph              2
## 7        Part time 20mph              1
## 8            Trunk roads              1
##   Speed_limit Accident_Index
## 1          20            144
## 2          30             88
## 3          40             21

Count pre 20mph

##                    LAYER Accident_Index
## 1 20mph existing streets             87
## 2    20mph local streets            111
## 3     20mph main streets            210
## 4                  30mph            148
## 5                  40mph             58
## 6        50, 60 or 70mph              9
## 7        Part time 20mph              2
## 8            Trunk roads              2
##   Speed_limit Accident_Index
## 1          20             22
## 2          30            558
## 3          40             47

Count post 20mph

##                    LAYER Accident_Index
## 1 20mph existing streets             56
## 2    20mph local streets             68
## 3     20mph main streets            129
## 4                  30mph            110
## 5                  40mph             44
## 6        50, 60 or 70mph              4
## 7        Part time 20mph              6
## 8            Trunk roads              1
##   Speed_limit Accident_Index
## 1          20            211
## 2          30            161
## 3          40             46

Output column: Layer

##   Accident_Index Speed_limit               LAYER
## 1        0000419          20  20mph main streets
## 2        0000519          20 20mph local streets
## 3        0000919          40 20mph local streets
## 4        0001019          20               30mph
## 5        0001219          40               40mph
## 6        0001419          30               30mph

Table: Average annual road traffic collision rates in the city of Edinburgh (road network)

Table: Average annual road traffic collision rates in the city of Edinburgh (Stats19)

Effect estimate

Mapping accidents with implementation zones: 2013

##   ImplementationZone Accident_Index
## 1                  1             73
## 2                  2            105
## 3                  3            137
## 4                  4             44
## 5                  5             68
## 6                  6             30
## 7                  7             21

Mapping accidents with implementation zones: 2014

##   ImplementationZone Accident_Index
## 1                  1            168
## 2                  2            275
## 3                  3            298
## 4                  4            109
## 5                  5            132
## 6                  6             89
## 7                  7             58

Mapping accidents with implementation zones: 2015

##   ImplementationZone Accident_Index
## 1                  1            155
## 2                  2            210
## 3                  3            273
## 4                  4             75
## 5                  5            144
## 6                  6             91
## 7                  7             43

Mapping accidents with implementation zones: 2016

total <- total_zones[total_zones$year == "2016", ]

map_zones %>% addMarkers(lng =total$Longitude, lat = total$Latitude, 
                         popup =paste("Accident index: ", total$Accident_Index, "<br>",
                                      "Zone: ", total$ImplementationZone))
count_impl(total[total$year == "2016", ])
##   ImplementationZone Accident_Index
## 1                  1             96
## 2                  2            120
## 3                  3            147
## 4                  4             48
## 5                  5             60
## 6                  6             48
## 7                  7             24

Mapping accidents with implementation zones: 2018

##   ImplementationZone Accident_Index
## 1                  1             88
## 2                  2            125
## 3                  3            160
## 4                  4             53
## 5                  5             68
## 6                  6             46
## 7                  7             30

Mapping accidents with implementation zones: 2019

total <- total_zones[total_zones$year == "2019", ]

map_zones %>% addMarkers(lng =total$Longitude, lat = total$Latitude, 
                         popup =paste("Accident index: ", total$Accident_Index, "<br>",
                                      "Zone: ", total$ImplementationZone))
count_impl(total[total$year == "2019", ])
##   ImplementationZone Accident_Index
## 1                  1             42
## 2                  2             68
## 3                  3             79
## 4                  4             33
## 5                  5             27
## 6                  6             18
## 7                  7             14

Output column: Implementation Zone

##   Accident_Index Speed_limit ImplementationZone
## 1  2013950000001          30                  1
## 2  2013950000002          30                  2
## 3  2013950000003          30                  2
## 4  2013950000007          30                  1
## 5  2013950000010          30                  4
## 6  2013950000058          20                  7

Count accidents in control zones

Control zone 1a:City center -> George St/Harbour, Aberdeen

## [1] 15

Control zone 1b:Rural west -> Tay Bridgehead & St Andrews

## [1] 26

Control zone 3:South central -> Dundee

## [1] 148

Control zone 4:North west -> Renfrew North, Renfrew South & Gallowhill, Paisley North West

## [1] 47

Control zone 5:West -> Glasqow Kelvin

## [1] 84

Control zone 6:South -> Paisley

## [1] 74

Updated dataset for Edinburgh

##   Accident_Index Speed_limit               LAYER ImplementationZone
## 1        0000419          20  20mph main streets                  2
## 2        0000519          20 20mph local streets                  1
## 3        0000919          40 20mph local streets                  3
## 4        0001019          20               30mph                  2
## 5        0001219          40               40mph                  4
## 6        0001419          30               30mph                  4